home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGASIC
/
BASFILES.LZH
/
REMOVDIR.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-09-10
|
632b
|
34 lines
'$INCLUDE:'QBTOOLS.INC'
'' '$INCLUDE: 'qbtools2.inc'
' PRINT SubDirDelete%("\PRANK")
FUNCTION SubDirDelete% (DirName$)
REDIM Fi$(2)
w% = FileAttributeGet%(DirName$, Attrib%)
IF w% THEN
SubDirDelete% = 1
ELSE
IF Attrib% = &H10 THEN
Temp$ = DirName$
IF RIGHT$(Temp$, 1) <> "\" THEN
Temp$ = Temp$ + "\"
END IF
Temp$ = Temp$ + STRING$(8, "?")
GetMatch Fi$(), FilNum%, Temp$, "???", 1 + 2 + 4 + 8 + 16 + 32
IF FilNum% = 0 THEN
RMDIR DirName$
SubDirDelete% = 0
ELSE
SubDirDelete% = 1
END IF
ELSE
SubDirDelete% = 1
END IF
END IF
END FUNCTION